EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


*eF ILE*#1De*eOTSCVTRHP ors 

000000 TTTTTTTITT SSSSSSSS cccccccc =~ VV TTTTTTTTTT RRRRRRRR HH HH PPPPPPPP 
000000 TITTTTTITT SSSSSSSS ccccccce vw VV TTTTTTTTTT RRRRRRRR ala} HH PPPPPPPP 

00 00 TT $s cc VV VV TT RR RR HH HH PP PP 

00 00 TT $s cc VV VV TT RR RR HH HH PP PP 

00 00 TT ss cc VV VV TT RR RR HH HH PP Pp 

00 00 TT $s cc VV VV TT RR RR HH HH PP PP 

00 00 TT SSSSSS cc VV VV TT RRRRRRRR HHHHHHHHHH PPPPPPPP 

00 00 TT SSSSSS cc WV VV TT RRRRRRRR HHHHHHHHHH PPPPPPPP 

00 00 TT ss cc VV VV TT RR RR HH HH PP 

00 00 TT ss cc vv VV TT RR RR HH HH PP 

00 00 TT ss CC VV ov TT RR RR HH HH PP aeons 

00 00 TT ss CC VV ovV TT RR RR HH HH PP 6eu< 
000000 TT SSSSSSSS cccccccce VV TT RR RR HH HH PP ose 
000000 TT SSSSSSSS cccccccc¢ VV TT RR RR HH HH PP a006 

LL III] SSSSSSSS 

LL HII SSSSSSSS 

LL II $$ 

LL I] $s 

LL I] SS 

LL II $s 

LL II SSSSSS 

LL II S$SSSSS 

LL II ss 

LL li $s 

LL II SS 

LL II ss 

LLELLLLLLLL HII SSSSSSSS 

LLLLLLLLLL HII SSSSSSSS 
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FACILITY: LANGUAGE INDEPENDENT SUPPORT 
ABSTRACT: 


This module contains the routine that converts H floating 
numbers to packed with rounding. 


f VERSION: 1 
Df 3 
4! HISTORY: 
1000 40 
41 AUTHOR: 
$5 Pamela Levesque, 21-Jan-1982 
44 ; MODIFIED BY: 
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-SBTTL HISTORY ; Detailed Current Edit History 


3; Edit History for Version 1 of OTSCVTRHP 
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re 


aT 


apr-1984 


PLL 21-Jan-1982 
conversion routine. PLL 2-Mar-198 


atin 
Expect a 8 digit exponent from the conversion se, Ae, PLL 8-Mar-1982 


8 number of digits in the exponent on the fly. 


1-005 + Make sure result will net over tigw destination after calculating 


( 
1-006 = comet 


ord ex 
ete ed 
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ver ounded 


000 0.0.0-.0.0.000000000000000000000 ~V~ 
Se SSSR SSeS SR RRS sa SS SS SSS. 


H Floating to pedked’ 19° 3Ee 1 38e 90: 48:98 AX/VMS Macro bf Page (a) AJ 


LIBRTL.SRCJOTSCVTRHP.MAR; 1 


~SBTTL DECLARATIONS 


INCLUDE FILES: 
SDSCDEF 


EXTERNAL SYMBOLS: 


-DSABL GBL ; Prevent undeclared symbols from being 
3; automatically global 


~EXTRN OTSSCNVOUT_H : E-format conversion 

-EXTRN LIBSSTOP ; Error halt 

sEXTRN OTSS_FATINTERR ; Fatal internal error code 
MACROS: 

NONE 


: PSECT DECLARATIONS: 


-PSECT _OTSSCODE PIC, SHR, LONG, EXE, NOWRT,- 
USR, CON, REL, LCL, RD 


EQUATED SYMBOLS: 
NONE 


OWN STORAGE: 
NONE 
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«SBTTL OTSSCVTRHP_RO 


+ 
FUNCTIONAL DESCRIPTION: 
Converts an h floating number to packed with rounding. 
CALLING SEQUENCE: 
JSB OTSSCVTRHP_RO (scale.rl.v, src.rh.r, dstlen.rl.v, dst.wp.r) 
Arguments are passed in R6, R7, RB and RI. 
INPUT PARAMETERS: 
SCALE.rl.v phew power of ten by which the internal 
veseserseat ran of the source must be 
tiplied to scale the same as the 
internal representat - of the dest. 
SRC.rh.er The number to be converted 
DSTLEN.rl.v The number of digits ty the destination 
IMPLICIT INPUTS: 
ALL of the trap bits in the PSL are assumed off. 
OUTPUT PARAMETERS: 
DST.wp.r The place to store the converted number 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
1 = SUCCESS, 0 = FAILURE 


SIDE EFFECTS: 


OOD NAUTICO OONAUE 


DOOSOOSOSOSOOOOSOCSOSOOOSOOOOSOSOSOOOOOOOSoOOS 
OCOOOCOOCOCooooooocooeo]a 


OODNAUE WN $$ OS OONAULS WN O 


Be Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Se Ge Ge Ge Se Se Se Se Ge Fe Ges Se 
+ 


OOooooooso 


Destroys registers RO through R9. 


OOoOoooooooooooooooosooooooocoSo 


AAI BF SS ES Es II IIA I II IRON 4 BOQOOOOOGOO 


a st ts 8 4 4 = 4 9 9 — —  —) 9 49 9 — Ss os ss 2 8 ot a ss dt te 


0 
; 
é 
§ OTSSCVTRHP_R9I: 
5E 38 ge SUBL * 956.5 : Allocate temp space 
6— 38 00 6€ 00 8 movcS = #0 (Sp) A*A'*#56,(SP) ; Clear temp space 
6€ 70FD : MOVH (R?), (SP) 3; Get input number 
4 1: Make a descriptor for the temporary string. 
10 At F : PUSHAB 16(SP) ; Address = Space reserved 
7E : MOVB #OSC$K_CLASS_S,-(SP) 3; Class = st 
7E E 1 MOVB heat DTYPE_T,-(SP) 3; Data type = ascl string 
7E 6 6B : § MOVW -(SP) 3 Length in byte 


4-00 Page 5 
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OTSSCVTRHP_R 
; Call OTSSCNVOUT. 


1 D PUSHL #31 ; Digits in fraction 
96 A F PUSHAB 4(SP) 3; Output string descriptor 
OA F PUSHAB 16(SP) 3; Number to convert 
00000000 ' GF g CALLS # Sg OCRNSUT A ; Call conversion routine 
63 BLBC RO,20$ ; Should never fail 


: Determine the number of digits in the exponent. 


i 
1 
: 18 
i £8 Meh 
F 
E 
B 
; 
8 3: find beginning of exponent (sign byte) 
1C AE 22 ° 7 LOCC #*A'+" ,#34,28(SP) 3 look tor sione yte watt 
2 BNEQ : branch if we found it 
1C AE 22 4 7 LOCC #*A'=" ,#34,28(SP) :; look for sign byte (-) 
3 BEQL 20$ :; branch to error if we didn't find it 
08 AE 51 00 6 9 5$: MOVL R1,8(SP) : save location of sign byte 
4 3; (contained in R1 after above LOCC) 
08 BE 05 00 3A D LOCC. #*A'',#5,aB*8(SP) : look for NUL (end of string) 
Oc AE 51 OB AE C3 4 SUBL3 8(SP),R1,12(SP) ; determine number of digits by subtracting 
04 ; location of pegingine of exponent from 
4 3; location of end of exponent, and save it 
OC AE 07 4 DECL 12(SP) 3; adjust for sign byte 
rt : 3; at this point, 12(SP) = Length of exponent 
RoE ; Convert the exponent and correct for scale factor. 
6— OC AE O08 BE OC AE 9? be ; CVTSP) 12(SP),@B*8(SP),12(SP), (SP) 3 Make packed exponent 
50 6E€ OC AE 6 be CVTPL 12¢(SP),(SP),RO 3; Make longword exponent 
05 : Here must check that the result will not overflow 
05 3 the destination. The destination length (total number of 
82 ; digits) minus the scale factor will give the number of digits 
5 3; to the left of the decimal point. If that number is greater than 
B2 3; the longword exponent, then the result WILL overflow the dest. 
54 58 56 C3 03 SUBL3 -R6, RBLR4 : Determine num of digits on left 
54 C5 D1 bee CMPL RO,R4 ; Compare with longword exponent 
2 14 zt BGTR 15$ 3; Branch if overflowed 
‘ 
061 


AO 


56 £2 A640 9E MOVAB -30(R6)CROJ,R6 Correct for fraction size and scale 
3 Convert the fraction to packed. 
MOVB 24{S8) 26(SP 
CVTSP #30 gb isp) f -{$P) 
ASHP = R6, #30, (SPS #5. RB, (RO) 
BVS $ 
10$: ADDL2 #64,SP 
RS 


; Move sign over ‘’."’ 
3; Make packed fraction 
3; Scale to Copt ination 
3 (also clears RO) 


SSSSSS 


PITIPIPIPIPIFIPIPIPIPIPIN INIA) ad ad a a i i 


1A AE 18 AE +4 
6€ 16 1AAE 1€ OQ 
69 58 OS 6€ IE 56 


; Branch if overflowe 
; Indicate success, R 
; Delete stack temps 


5E 00000040 i 


i] 
Oo 


Indicate failure, RO = 
Delete stack temps 


3 
5E 00000040 8F 


A = ' § *~QOODOGOGO0OS000 000 OOOO 090909 09 09 6909 09 09 09 SII NINN NINA AAA AAAAAOUU 


PV AQ ODA NE WNG +29 OD NAN WIN @ OOD NA UNE WI 9 SO ODNAUE WN 2 OUOWONAULS UV OW0D 


CLRL RO 
ADDL2 4#64,SP 
RSB 


hee GPS¥EVERNPLRS.. " ‘toeting to racked! S6-4EE-1886 O9:28:98 EMRE SRESErLOGRED mann POPP ch 


E 18 3 
FE 18 : Come here on failure of OTSSCNVOUT. This should never happen. 
0000000'8F DD : 18 20$:  PUSHL #OTSS$_FATINTERR ; OTS fatal error message 
OO'GF O01 FB 5 4 20 CALLS #1,G*CIBSSTOP ; Signal and don't return 
0 , END 
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OTSSCVTRHP_R9 16-SEP-1 AX/VMS 
Symbol table g- -SEP-19 1382 90: #8: 98 LIBRTL.S 
DSCSK_CLASS_S 1 
Deeee-otyPe ct = 8000008 
LIBSSTOP eeeeeeee 
OTSSCNVOUT_H eeereene 
OTSSCVTRHP | R9 00000000 RG 
OTSS_FATINTERR eteerene 

pu cmeenteneeace cen t 

! Psect synopsis ! 

ger ewmeonn ema ma sen a} 
PSECT name Allocation PSECT No. Attributes 

ABS . 008 608 -) 0 ¢ 0.) NOPIC USR CON ABS LCL N oo se NOE XE 
SABS$ ( -) 01 ¢ J.) NOPIC USR CON ABS LCL NOSHR EXE 
-OTSSCODE 000009B ( 155.) 2 ¢ ) PIC USR CON~ REL LCL EXE 
cen ae Cem sees + 
;_Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization 2 0:00:00.03 0: 8:01 .0) 
pounene processing ! 3 8: : d. H 3: 805 °88 
Symbol table sort 59 28 : 9.11 9:00:00.71 
Ceesot table output : 0:00:00.01 §:09:00:30 
Psect synopsis output 0:00:00.0 0:00:00.02 
Cross-reference output ! 0: 3: 0.0 BR: 88 290-09 
Assembler run totals 35 0:00:02.0 0:00:11.71 


The working set Limit was 1050 pages. 
9083 bytes (18 pages) of virtual memory were used to buffer th 
There were 10 pages of symbol table space of locas d to hold 13 
i? source lines were read in Pass 1, producin 
pages of virtual memory were used to define 


intermediate code. 

non-local and 4 local symbols. 
10 object records in Pass 2. 

macros. 


dence nmeneve case asreeasnancce } 


! Macro Library statistics H 


¢ mms swe omnes ses enweac sas eae 


Macro library name Macros defined 
“$255$DUA28: CSYSLIBISTARLET. MLB;2 4 
190 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 


cro V0 


TS 
P 
REI0 TS LOVTRUP. MAR; 1 i a 


(4) 


NORD NOWRT NOVEC BYTE 
RD WRT NOV 


EC BYTE 
RD NOWRT NOVEC LONG 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:OTSCVTRHP/OBJ=OBJ$:OTSCVTRHP MSRC$:OTSCVTRHP/UPDATE=(ENHS$:OTSCVTRHP) 
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